world_map0 <- world_map %>%
mutate(region = case_when(region == "Macedonia" ~ "North Macedonia",
region == "Ivory Coast" ~ "Cote d'Ivoire",
region == "Democratic Republic of the Congo" ~ "Congo, Dem. Rep.",
region == "Republic of Congo" ~ "Congo, Rep.",
region == "UK" ~ "United Kingdom",
region == "USA" ~ "United States",
region == "Laos" ~ "Lao PDR",
region == "Slovakia" ~ "Slovak Republic",
region == "Saint Lucia" ~ "St. Lucia",
region == "Kyrgyzstan" ~ "Kyrgyz Republic",
region == "Micronesia" ~ "Micronesia, Fed. Sts.",
region == "Swaziland" ~ "Eswatini",
region == "Virgin Islands" ~ "Virgin Islands (U.S.)",
region == "Russia" ~ "Russian Federation",
region == "Egypt" ~ "Egypt, Arab Rep.",
region == "South Korea" ~ "Korea, Rep.",
region == "North Korea" ~ "Korea, Dem. People's Rep.",
region == "Iran" ~ "Iran, Islamic Rep.",
region == "Brunei" ~ "Brunei Darussalam",
region == "Venezuela" ~ "Venezuela, RB",
region == "Yemen" ~ "Yemen, Rep.",
region == "Bahamas" ~ "Bahamas, The",
region == "Syria" ~ "Syrian Arab Republic",
region == "Turkey" ~ "Turkiye",
region == "Cape Verde" ~ "Cabo Verde",
region == "Gambia" ~ "Gambia, The",
region == "Czech Republic" ~ "Czechia",
TRUE ~ region))